home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 2
/
Atari Mega Archive CD - Volume 2.iso
/
8bit
/
cislib_a
/
musici.xmo
< prev
next >
Wrap
Text File
|
1995-04-22
|
989b
|
43 lines
100 REM Musician
110 GRAPHICS 19
120 DIM SC(21),MU(1024)
130 FOR I=0 TO 21
140 READ SC
150 SC(I)=SC
160 NEXT I
170 DATA 243,217,193,182,162,144
180 DATA 128,121,108,96,91,81,72
190 DATA 64,60,53,47,45,40,35,31,29
200 PER=INT(13*RND(0))+3
210 PHR=INT(54*RND(0))+10
220 FOR I=0 TO PHR
230 BASE=INT(15*RND(0))
240 FOR J=0 TO PER
250 MU(J+I*PER)=BASE+INT(8*RND(0))
260 NEXT J
270 NEXT I
280 RPT=INT(3*RND(0))+2
290 SPD=0.5+2*RND(0)
300 FOR I=0 TO PHR
310 IF X0>39-PER THEN X0=0:GRAPHICS 19
320 FOR J=0 TO RPT
330 FOR K=0 TO PER-1
340 X=X0+K:Y=MU(K+I*PER)
350 COLOR 1:PLOT X,23-Y
360 P=PEEK(53279)
370 IF P=6 THEN POP :X0=40:GOTO 300
380 IF P=5 THEN RUN
390 IF P=3 THEN POP :GOTO 320
400 CHAN=INT(RND(0)*4)
410 FOR V=15 TO 2 STEP -SPD
420 SOUND CHAN,SC(Y),10,V
430 NEXT V
440 COLOR 3:PLOT X,23-Y
450 NEXT K
460 NEXT J
470 X0=X0+PER+1:POKE 77,0
480 NEXT I
490 FOR I=0 TO 500:NEXT I
500 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I
510 X0=0:GRAPHICS 19:GOTO 200